home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / message.def < prev    next >
Text File  |  1993-11-04  |  720b  |  23 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    Message.def
  3.   :Contents.   IDCMP-Abfrage eines Fensters
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9. ----------------------------------------------------------------------*)
  10.  
  11. DEFINITION MODULE Message;
  12.  
  13. FROM SYSTEM    IMPORT ADDRESS;
  14. FROM Intuition IMPORT IDCMPFlagSet;
  15.  
  16. PROCEDURE WaitForMsg (    wptr  : ADDRESS;
  17.                       VAR class : IDCMPFlagSet;
  18.                       VAR code  : CARDINAL;
  19.                       VAR addr  : ADDRESS);
  20. (* Warten auf Meldung vom Fenster. Rückgabe der wichtigen Infos *)
  21.  
  22. END Message.
  23.